Unit KayitBilgisi;

Interface

Uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

Type
  TKayitBilgisiF = Class(TForm)
    bkapat: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    aktarmazamanik: TStaticText;
    yazdirmazamanik: TStaticText;
    Label3: TLabel;
    Onayzamanik: TStaticText;
    Label4: TLabel;
    FaturaZamanik: TStaticText;
    OkutmaZamani: TStaticText;
    Label5: TLabel;
    Procedure FormClose(Sender: TObject; Var Action: TCloseAction);
    Procedure bkapatClick(Sender: TObject);
    Procedure FormKeyPress(Sender: TObject; Var Key: Char);
  Private
    { Private declarations }
  Public
    { Public declarations }
  End;

Var
  KayitBilgisiF: TKayitBilgisiF;

Implementation

{$R *.dfm}

Procedure TKayitBilgisiF.FormClose(Sender: TObject;
  Var Action: TCloseAction);
Begin
  Action := CaFree;
  KayitBilgisiF := Nil;

End;

Procedure TKayitBilgisiF.bkapatClick(Sender: TObject);
Begin
  close;
End;

Procedure TKayitBilgisiF.FormKeyPress(Sender: TObject; Var Key: Char);
Begin
  If key = #27 Then Close;
End;

End.
